(compilation-filter): Run compilation-filter-hook.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 3d57e0aa73e1173b2908df6230a4cbf9676ced80..1aa2dbadf92a29bf1201264e28bbfaf1f0d38319 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -645,6 +645,7 @@ Just inserts the text, but uses `insert-before-markers'."
          (save-excursion
            (goto-char (process-mark proc))
            (insert-before-markers string)
+           (run-hooks 'compilation-filter-hook)
            (set-marker (process-mark proc) (point)))))))
 
 ;; Return the cdr of compilation-old-error-list for the error containing point.